|
1200
|
Is it possible to display the task bars with a gradient color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2009"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Get ComCopy of hoBars "Task" "TaskO" to Nothing
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar
Get ComItem of hoBars1 "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to (OLEexPatternGradientVBox + OLEexPatternBox + OLEexPatternShadow)
Set ComStartColor of hoBar to (RGB(255,255,255))
Set ComEndColor of hoBar to (ComColor(hoBar))
Send Destroy to hoBar
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Types" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "TaskO" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "TaskO" "1/4/2010" "1/9/2010" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1199
|
How can I know the type of bars I can displays using predefined patterns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2009"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Box" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBox
Send Destroy to hoBar
Variant voBar1
Get ComAdd of hoBars "ThickBox" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComPattern of hoBar1 to (OLEexPatternThickBox + OLEexPatternBox)
Send Destroy to hoBar1
Variant voBar2
Get ComAdd of hoBars "DiagBox" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComPattern of hoBar2 to (OLEexPatternThickBox + OLEexPatternBDiagonal)
Send Destroy to hoBar2
Variant voBar3
Get ComCopy of hoBars "Task" "Shadow" to voBar3
Handle hoBar3
Get Create (RefClass(cComBar)) to hoBar3
Set pvComObject of hoBar3 to voBar3
Set ComPattern of hoBar3 to (OLEexPatternFrameShadow + OLEexPatternShadow)
Send Destroy to hoBar3
Variant voBar4
Get ComCopy of hoBars "Task" "TShadow" to voBar4
Handle hoBar4
Get Create (RefClass(cComBar)) to hoBar4
Set pvComObject of hoBar4 to voBar4
Set ComPattern of hoBar4 to (OLEexPatternFrameShadow + OLEexPatternThickBox + OLEexPatternDiagCross)
Send Destroy to hoBar4
Variant voBar5
Get ComAdd of hoBars "HGrad1" to voBar5
Handle hoBar5
Get Create (RefClass(cComBar)) to hoBar5
Set pvComObject of hoBar5 to voBar5
Set ComPattern of hoBar5 to OLEexPatternBox
Set ComStartColor of hoBar5 to (RGB(255,255,255))
Set ComEndColor of hoBar5 to (RGB(0,0,255))
Send Destroy to hoBar5
Variant voBar6
Get ComAdd of hoBars "HGrad2" to voBar6
Handle hoBar6
Get Create (RefClass(cComBar)) to hoBar6
Set pvComObject of hoBar6 to voBar6
Set ComPattern of hoBar6 to (OLEexPatternBox + OLEexPatternShadow)
Set ComStartColor of hoBar6 to (RGB(255,255,255))
Set ComEndColor of hoBar6 to (RGB(0,0,255))
Set ComColor of hoBar6 to (RGB(0,0,255))
Send Destroy to hoBar6
Variant voBar7
Get ComAdd of hoBars "HGrad3" to voBar7
Handle hoBar7
Get Create (RefClass(cComBar)) to hoBar7
Set pvComObject of hoBar7 to voBar7
Set ComPattern of hoBar7 to (OLEexPatternGradient3Colors + OLEexPatternBox + OLEexPatternShadow)
Set ComStartColor of hoBar7 to (RGB(255,255,255))
Set ComEndColor of hoBar7 to (ComStartColor(hoBar7))
Set ComColor of hoBar7 to (RGB(0,0,255))
Send Destroy to hoBar7
Variant voBar8
Get ComAdd of hoBars "HGrad4" to voBar8
Handle hoBar8
Get Create (RefClass(cComBar)) to hoBar8
Set pvComObject of hoBar8 to voBar8
Set ComPattern of hoBar8 to (OLEexPatternThickBox + OLEexPatternGradient3Colors + OLEexPatternBox)
Set ComStartColor of hoBar8 to (RGB(255,255,255))
Set ComEndColor of hoBar8 to (ComStartColor(hoBar8))
Set ComColor of hoBar8 to (RGB(0,0,255))
Send Destroy to hoBar8
Variant voBar9
Get ComAdd of hoBars "HGrad5" to voBar9
Handle hoBar9
Get Create (RefClass(cComBar)) to hoBar9
Set pvComObject of hoBar9 to voBar9
Set ComPattern of hoBar9 to (OLEexPatternFrameShadow + OLEexPatternGradient3Colors + OLEexPatternBox)
Set ComStartColor of hoBar9 to (RGB(0,255,0))
Set ComEndColor of hoBar9 to (RGB(255,0,0))
Set ComColor of hoBar9 to (RGB(0,0,255))
Send Destroy to hoBar9
Variant voBar10
Get ComAdd of hoBars "VGrad1" to voBar10
Handle hoBar10
Get Create (RefClass(cComBar)) to hoBar10
Set pvComObject of hoBar10 to voBar10
Set ComPattern of hoBar10 to (OLEexPatternGradientVBox + OLEexPatternBox)
Set ComStartColor of hoBar10 to (RGB(255,255,255))
Set ComEndColor of hoBar10 to (RGB(0,0,255))
Set ComHeight of hoBar10 to 14
Send Destroy to hoBar10
Variant voBar11
Get ComAdd of hoBars "VGrad2" to voBar11
Handle hoBar11
Get Create (RefClass(cComBar)) to hoBar11
Set pvComObject of hoBar11 to voBar11
Set ComPattern of hoBar11 to (OLEexPatternGradientVBox + OLEexPatternBox + OLEexPatternShadow)
Set ComStartColor of hoBar11 to (RGB(255,255,255))
Set ComEndColor of hoBar11 to (RGB(0,0,255))
Set ComColor of hoBar11 to (RGB(0,0,255))
Set ComHeight of hoBar11 to 14
Send Destroy to hoBar11
Variant voBar12
Get ComAdd of hoBars "VGrad3" to voBar12
Handle hoBar12
Get Create (RefClass(cComBar)) to hoBar12
Set pvComObject of hoBar12 to voBar12
Set ComPattern of hoBar12 to (OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox + OLEexPatternShadow)
Set ComStartColor of hoBar12 to (RGB(255,255,255))
Set ComEndColor of hoBar12 to (ComStartColor(hoBar12))
Set ComColor of hoBar12 to (RGB(0,0,255))
Set ComHeight of hoBar12 to 14
Send Destroy to hoBar12
Variant voBar13
Get ComAdd of hoBars "VGrad4" to voBar13
Handle hoBar13
Get Create (RefClass(cComBar)) to hoBar13
Set pvComObject of hoBar13 to voBar13
Set ComPattern of hoBar13 to (OLEexPatternThickBox + OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox)
Set ComStartColor of hoBar13 to (RGB(255,255,255))
Set ComEndColor of hoBar13 to (ComStartColor(hoBar13))
Set ComColor of hoBar13 to (RGB(0,0,255))
Set ComHeight of hoBar13 to -1
Send Destroy to hoBar13
Variant voBar14
Get ComAdd of hoBars "VGrad5" to voBar14
Handle hoBar14
Get Create (RefClass(cComBar)) to hoBar14
Set pvComObject of hoBar14 to voBar14
Set ComPattern of hoBar14 to (OLEexPatternFrameShadow + OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox)
Set ComStartColor of hoBar14 to (RGB(0,255,0))
Set ComEndColor of hoBar14 to (RGB(255,0,0))
Set ComColor of hoBar14 to (RGB(0,0,255))
Set ComHeight of hoBar14 to 14
Send Destroy to hoBar14
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Types" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Box")) "Box" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Thick Box")) "ThickBox" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Thick Box Diag")) "DiagBox" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Shadow")) "Shadow" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Thick Shadow")) "TShadow" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient")) "HGrad1" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient")) "HGrad2" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient 3 Colors")) "HGrad3" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient 3 Colors")) "HGrad4" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Gradient Shadow")) "HGrad5" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient")) "VGrad1" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient")) "VGrad2" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Pattern Gradient 3 Colors")) "VGrad3" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Solid Gradient 3 Colors")) "VGrad4" "1/4/2010" "1/9/2010" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Gradient Shadow")) "VGrad5" "1/4/2010" "1/9/2010" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1198
|
Is it possible to display the bars with a thicker border
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars
Get ComBars of hoChart2 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "TaskB" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to (OLEexPatternThickBox + OLEexPatternShadow)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/5/2001" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "TaskB" "1/2/2001" "1/5/2001" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1197
|
Is it possible to display the shadow for EBN bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars
Get ComBars of hoChart2 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "EBN" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Set ComPattern of hoBar to OLEexPatternFrameShadow
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Variant voBars1
Get ComBars of hoChart3 to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "EBN2" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to |CI$1000000
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "EBN2" "1/2/2001" "1/5/2001" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "EBN" "1/2/2001" "1/5/2001" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "EBN2" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1196
|
Can I display a shadow for my bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars
Get ComBars of hoChart2 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComPattern of hoBar1 to (OLEexPatternFrameShadow + OLEexPatternShadow)
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/5/2001" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1195
|
How can I use the Color property for gradient bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars
Get ComBars of hoChart2 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "V" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Set ComStartColor of hoBar to (RGB(0,255,0))
Set ComEndColor of hoBar to (ComStartColor(hoBar))
Set ComPattern of hoBar to (OLEexPatternGradient3Colors + OLEexPatternGradientVBox + OLEexPatternBox)
Set ComHeight of hoBar to -1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Variant voBars1
Get ComBars of hoChart3 to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "H" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComStartColor of hoBar1 to (RGB(0,255,0))
Set ComEndColor of hoBar1 to (ComStartColor(hoBar1))
Set ComPattern of hoBar1 to (OLEexPatternGradient3Colors + OLEexPatternBox)
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "V" "1/2/2001" "1/5/2001" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "H" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1194
|
Is there any option to show bars with vertical gradient
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComStartColor of hoBar1 to (RGB(0,255,0))
Set ComEndColor of hoBar1 to (RGB(255,255,0))
Set ComPattern of hoBar1 to (OLEexPatternGradientVBox + OLEexPatternBox)
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
End_Procedure
|
|
1193
|
How can I define a new milestone bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Send ComAddShapeCorner of hoBars 12345 1
Send ComAddShapeCorner of hoBars 12346 2
Variant voBar
Get ComCopy of hoBars "Milestone" "M1" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComStartShape of hoBar to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
Send Destroy to hoBar
Variant voBar1
Get ComCopy of hoBars "Milestone" "M2" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComStartShape of hoBar1 to (|CI$3020 + OLEexShapeIconSquare + OLEexShapeIconRight)
Send Destroy to hoBar1
Variant voBar2
Get ComCopy of hoBars "Milestone" "MP" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComStartShape of hoBar2 to OLEexShapeIconStar
Set ComStartColor of hoBar2 to (RGB(255,0,0))
Send Destroy to hoBar2
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Default")) "Milestone" "1/2/2001" "1/2/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Predefined")) "MP" "1/3/2001" "1/3/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Custom 1")) "M1" "1/4/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Custom 2")) "M2" "1/5/2001" "1/5/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1192
|
How can I define my milestone bar, using my icons or pictures
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Send ComAddShapeCorner of hoBars 12345 1
Variant voBar
Get ComItem of hoBars "Milestone" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComStartShape of hoBar to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Milestone" "1/2/2001" "1/2/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
1191
|
Is it possible to specify manually non-working days instead using the NonworkingDays as being repetitive
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to True
Send Destroy to hoLevel
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingDates of hoChart to False
Set ComNonworkingDays of hoChart to 0
Send ComAddNonworkingDate of hoChart "1/10/2010"
Send ComAddNonworkingDate of hoChart "1/11/2010"
Send ComAddNonworkingDate of hoChart "1/15/2010"
Send ComAddNonworkingDate of hoChart "1/16/2010"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1190
|
Is it possible to hide specific days
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to True
Send Destroy to hoLevel
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingDates of hoChart to False
Set ComNonworkingDays of hoChart to 128
Send ComAddNonworkingDate of hoChart "1/10/2010"
Send ComAddNonworkingDate of hoChart "1/11/2010"
Send ComAddNonworkingDate of hoChart "1/15/2010"
Send ComAddNonworkingDate of hoChart "1/16/2010"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1189
|
Is it possible to show or display the marked zones ONLY in the overview part of the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/14/2001"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send ComMarkTimeZone of hoChart "Z1" "1/3/2001" "1/4/2001" (ComBackColor(hoChart)) ";;Zone <b>1</b>"
Send ComMarkTimeZone of hoChart "Z2" "2/6/2001" "2/7/2001" (ComBackColor(hoChart)) ";;Zone <b>2</b>"
Send ComMarkTimeZone of hoChart "Z3" "1/16/2001" "1/19/2001" (ComBackColor(hoChart)) ";;Zone <b>3</b>"
Set ComOverviewShowMarkTimeZones of hoChart to True
Set ComOverviewBackColor of hoChart to (RGB(220,240,240))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "2/5/2001" "2/8/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1188
|
Is it possible to show or display the marked zones in the overview part of the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/14/2001"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send ComMarkTimeZone of hoChart "Z1" "1/3/2001" "1/4/2001" 16777056 Nothing
Send ComMarkTimeZone of hoChart "Z2" "2/6/2001" "2/7/2001" 16744544 Nothing
Send ComMarkTimeZone of hoChart "Z3" "1/16/2001" "1/19/2001" 16744544 Nothing
Set ComOverviewShowMarkTimeZones of hoChart to True
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "2/5/2001" "2/8/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1187
|
Is there a quick way to determine if a bar belongs to a group
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "1/5/2001" "1/7/2001" "K3" Nothing
Send ComGroupBars of hoItems h1 "K1" True h2 "K2" True Nothing Nothing
Send ComGroupBars of hoItems h1 "K1" False h2 "K2" False Nothing Nothing
Send ComGroupBars of hoItems h1 "K1" True h3 "K3" True Nothing Nothing
Send ComGroupBars of hoItems h1 "K1" False h3 "K3" False Nothing Nothing
Showln (ComItemBar(hoItems,h1,"K1",OLEexBarsGroup))
Send Destroy to hoItems
End_Procedure
|
|
1186
|
I am using the ScrollRange property to limit the chart's visible area, but it does not work as expected. What could be wrong
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 56
Set ComScrollRange of hoChart OLEexStartDate to ""
Set ComScrollRange of hoChart OLEexEndDate to "12/31/9999"
Set ComFirstVisibleDate of hoChart to "4/28/2010"
Send Destroy to hoChart
Variant v
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Get ComScrollRange of hoChart1 OLEexStartDate to v
Send Destroy to hoChart1
Set ComScrollPartCaption OLEexHChartScroll OLEexLowerBackPart to v
Set ComScrollPartCaptionAlignment OLEexHChartScroll OLEexLowerBackPart to OLELeftAlignment
Variant v1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Get ComScrollRange of hoChart2 OLEexEndDate to v1
Send Destroy to hoChart2
Set ComScrollPartCaption OLEexHChartScroll OLEexUpperBackPart to v1
Set ComScrollPartCaptionAlignment OLEexHChartScroll OLEexUpperBackPart to OLERightAlignment
Send ComEndUpdate
End_Procedure
|
|
1185
|
Are you planning to add a AddNonworkingDate / AddNonworkingDay for separate items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowChartScrollPage to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Non-Work" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "4/4/2009"
Set ComPaneWidth of hoChart False to 52
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Default" to Nothing
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Test 1")) False to "shortdate(value) in (#4/5/2009#,#4/6/2009#)"
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Test 2")) False to "shortdate(value) in (#4/6/2009#,#4/7/2009#)"
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Test 3")) False to "shortdate(value) in (#4/7/2009#,#4/9/2009#)"
Get ComAddItem of hoItems "Default" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1184
|
How can I enlarge the EBN being applied to an object
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 32
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 2 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -3 -2 3 2" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComSelBarColor of hoChart to |CI$1000000
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Set ComItemBar of hoItems h "B" OLEexBarSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1183
|
I am using EBN to display my bars but the bars shows in black in the overview area. Is there any option to specify a different color in the overview part of the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Send Destroy to hoBar
Send Destroy to hoBars
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComFirstVisibleDate of hoChart to "1/11/2001"
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" 1 Nothing
Set ComItemBar of hoItems h 1 OLEexBarOverviewColor to 8821418
Send ComAddBar of hoItems h "Task" "2/2/2001" "2/4/2001" 2 Nothing
Set ComItemBar of hoItems h 2 OLEexBarOverviewColor to 8821418
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "2/2/2001" "2/4/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarOverviewColor to 8821418
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1182
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 0
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
Set ComLabelToolTip of hoChart OLEexWeek to "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComMonthNames of hoChart to "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
Set ComWeekDays of hoChart to "domenica lunedì martedì mercoledì giovedì venerdì sabato"
Set ComToolTip of hoChart to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1181
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 0
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
Set ComLabelToolTip of hoChart OLEexWeek to "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComMonthNames of hoChart to "januari februari maart april mei juni juli augusts september oktober november december"
Set ComWeekDays of hoChart to "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
Set ComToolTip of hoChart to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1180
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 0
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096"
Set ComLabelToolTip of hoChart OLEexWeek to "<%d%>.<%mmmm%> <%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComMonthNames of hoChart to "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
Set ComWeekDays of hoChart to "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
Set ComToolTip of hoChart to "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1179
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 0
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
Set ComLabelToolTip of hoChart OLEexWeek to "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComMonthNames of hoChart to "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
Set ComWeekDays of hoChart to "dimanche lundi mardi mercredi jeudi vendredi samedi"
Set ComToolTip of hoChart to "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1178
|
How can I determine the last visible date in the chart
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComFirstVisibleDate of hoChart to v
Send Destroy to hoChart
Showln "First" v
Variant v1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Get ComDateFromPoint of hoChart1 1 -1 to v1
Send Destroy to hoChart1
Showln "Last" v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComLevelCount of hoChart2 to 2
Set ComPaneWidth of hoChart2 False to 1
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
1177
|
How can I filter programatically using more columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Car" to Nothing
Get ComAdd of hoColumns "Equipment" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Toyota")) 1 to "Air Bag,Air condition"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Ford")) 1 to "Air condition"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Nissan")) 1 to "Air Bag,ABS,ESP"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag, ABS,ESP"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "ABS,ESP"
Send Destroy to hoItems
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 "Car" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFilterType of hoColumn to OLEexFilter
Set ComFilter of hoColumn to "Mazda"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComItem of hoColumns2 "Equipment" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFilterType of hoColumn1 to OLEexPattern
Set ComFilter of hoColumn1 to "*ABS*|*ESP*"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
1176
|
Do you have scheduling functionality in Gantt (meaning scheduling several activities (bars) depending on their start and finish dates with considering dependencies to other activities
// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM llItem Variant llKey
Forward Send OnComBarResize llItem llKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComSchedulePDM of hoItems llItem llKey to Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send Destroy to hoItems1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Working" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 258
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 96
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Send Destroy to hoChart
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant h1
Get ComAddItem of hoItems2 "Task 1" to h1
Send ComAddBar of hoItems2 h1 "Task" "1/2/2001" "1/4/2001" "" Nothing
Variant h2
Get ComAddItem of hoItems2 "Task 2" to h2
Send ComAddBar of hoItems2 h2 "Task" "1/2/2001" "1/4/2001" "" Nothing
Send ComAddLink of hoItems2 "L1" h1 "" h2 ""
Variant h3
Get ComAddItem of hoItems2 "Task 3" to h3
Send ComAddBar of hoItems2 h3 "Task" "1/2/2001" "1/6/2001" "" Nothing
Send ComAddLink of hoItems2 "L2" h2 "" h3 ""
Set ComLink of hoItems2 "L2" OLEexLinkText to "FF"
Set ComLink of hoItems2 "L2" OLEexLinkStartPos to 2
Set ComLink of hoItems2 "L2" OLEexLinkEndPos to 2
Variant h4
Get ComAddItem of hoItems2 "Task 4" to h4
Send ComAddBar of hoItems2 h4 "Task" "1/2/2001" "1/4/2001" "" Nothing
Send ComAddLink of hoItems2 "L3" h4 "" h3 ""
Set ComItemBar of hoItems2 0 "<*>" OLEexBarKeepWorkingCount to True
Get ComSchedulePDM of hoItems2 (ComFirstVisibleItem(hoItems2)) "" to Nothing
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
1175
|
How can I show the ticks for a single slider field
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Slider" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 10 to Nothing
Variant voEditor1
Get ComCellEditor of hoItems (ComAddItem(hoItems,20)) 0 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESliderType
Set ComOption of hoEditor1 OLEexSliderTickFrequency to 10
Send Destroy to hoEditor1
Get ComAddItem of hoItems 30 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1174
|
Is it possible to show ticks for slider fields
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Slider" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Set ComOption of hoEditor OLEexSliderTickFrequency to 10
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 10 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1173
|
How can I group two bars so the distance between them is limited to a specified range
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/24/2006" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Unknown" "9/25/2006" "9/28/2006" Nothing Nothing
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Send ComGroupBars of hoItems h1 "" False h2 "" True 31 "1;2"
Showln "The distance between A and B is limited between 1 and 3 days"
Showln "The B is always after the A"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1172
|
How can I group two bars so the distance between them is flexible but never less than a specified value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/24/2006" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Unknown" "9/26/2006" "9/29/2006" Nothing Nothing
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Send ComGroupBars of hoItems h1 "" False h2 "" True 39 "2"
Showln "The distance between A and B is never less than 2 days"
Showln "The B is always after the A"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1171
|
How can I group two bars so the distance between them is flexible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/24/2006" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Unknown" "9/26/2006" "9/29/2006" Nothing Nothing
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Send ComGroupBars of hoItems h1 "" False h2 "" True 39 Nothing
Showln "The distance between A and B is flexible, unlimited"
Showln "The B is always after the A"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1170
|
How can I group two bars so the interval between them is fixed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "9/21/2006" "9/24/2006" "T1" "A"
Send ComAddBar of hoItems h "Unknown" "9/26/2006" "9/29/2006" "T2" "B"
Send ComAddLink of hoItems "L" h "T1" h "T2"
Set ComLink of hoItems "L" OLEexLinkGroupBars to 27
Set ComLink of hoItems "L" OLEexLinkShowDir to False
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Unknown" "9/26/2006" "9/29/2006" "T2" "B"
Send ComAddLink of hoItems "L2" h "T1" h2 "T2"
Set ComLink of hoItems "L2" OLEexLinkGroupBars to 27
Set ComLink of hoItems "L2" OLEexLinkShowDir to False
Showln "The distance between bars is constant"
Showln "The B is always after the A"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1169
|
How can I group two bars when linking, so moving the first bar will makes the second to move accordingly
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/24/2006" "" "A"
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Unknown" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkGroupBars to 39
Showln "The distance between A and B is flexible, unlimited"
Showln "The B is always after the A"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1168
|
Is it possible to be notified when the user clicks an anchor element a hyperlink in the date-time zone
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln "Click: " llAnchorID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Send ComMarkTimeZone of hoChart "Z" "1/2/2001" "1/5/2001" 15753471 ";32;Caption <a1><b>1</b></a>;1;Caption <a2><b>2</b></a>;17;Caption <a3><b>3</b></a>"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1167
|
Is it possible to be notified when the user clicks a date-time zone
// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick
Forward Send OnComClick
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Showln "Click: " (ComTimeZoneFromPoint(hoChart,-1,-1))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "12/28/2000"
Set ComPaneWidth of hoChart1 False to 48
Send ComMarkTimeZone of hoChart1 "Z" "1/2/2001" "1/5/2001" 16711680 ";32;DATE-TIME<br> ZONE"
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
1166
|
Is is possible to display multiple captions in the same date-time zone
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Send ComMarkTimeZone of hoChart "Z" "1/5/2001" "1/8/2001" 12895487 ";;Caption <b>1</b>;1;Caption <b>2</b>;17;Caption <b>3</b>"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1165
|
Is is possible to align on the top the caption for the date-time zone
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Send ComMarkTimeZone of hoChart "Z" "1/5/2001" "1/8/2001" 12895487 ";;UpperCenter;1"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1164
|
Is there any option to display a picture on the date-time zone
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\card.png"
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Send ComMarkTimeZone of hoChart "Z" "1/5/2001" "1/8/2001" 12895487 ";;<c><img>pic1</img><br><c>picture"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1163
|
Is there any option to display a text or a HTML caption on the date-time zone
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Send ComMarkTimeZone of hoChart "Z1" "1/1/2001" "1/4/2001" 12895487 ";;zone <b>1</b>"
Send ComMarkTimeZone of hoChart "Z2" "1/5/2001" "1/8/2001" 12895487 ";;zone <b>2</b>"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1162
|
How can I display the date-time zone using a semi-transparent EBN object
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send ComMarkTimeZone of hoChart "Z1" "1/2/2001" "1/3/2001" 16777056 ";;Solid"
Send ComMarkTimeZone of hoChart "Z2" "1/7/2001" "1/10/2001" 16777216 "50;;EBN"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/8/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1161
|
How can I display the date-time zone using an EBN or a skin instead a solid color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send ComMarkTimeZone of hoChart "Z1" "1/2/2001" "1/3/2001" 16777056 ";;Solid"
Send ComMarkTimeZone of hoChart "Z2" "1/5/2001" "1/8/2001" 16777216 ";;EBN"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/8/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1160
|
How can I display the date-time zone using a pattern instead a solid color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send ComMarkTimeZone of hoChart "Z1" "1/2/2001" "1/3/2001" 16777056 ";;Solid"
Send ComMarkTimeZone of hoChart "Z2" "1/6/2001" "1/7/2001" 16777056 ";12;Pattern"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/8/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1159
|
How can I display the date-time zone using a transparent color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send ComMarkTimeZone of hoChart "Z1" "1/2/2001" "1/3/2001" 16777056 ";;Opaque"
Send ComMarkTimeZone of hoChart "Z2" "1/6/2001" "1/7/2001" 16777056 "50;;Semi-Transparent"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/8/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1158
|
The date time zone is shown behind the bars, is there any way to show it over
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send ComMarkTimeZone of hoChart "Z1" "1/2/2001" "1/3/2001" 16777056 Nothing
Send ComMarkTimeZone of hoChart "Z2" "1/6/2001" "1/7/2001" 16777056 "1"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/8/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1157
|
How can I get ifnromation about a date-time zone
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Showln (ComTimeZoneInfo(hoChart,(ComTimeZoneFromPoint(hoChart,-1,-1))))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 18
Set ComLevelCount of hoChart1 to 2
Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
Send ComMarkTimeZone of hoChart1 "Z1" "1/4/2010" "1/8/2010" 16744544 Nothing
Send ComMarkTimeZone of hoChart1 "Z2" "1/12/2010" "1/18/2010" 16761952 Nothing
Send Destroy to hoChart1
End_Procedure
|
|
1156
|
How can I determine the zone from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Showln (ComTimeZoneFromPoint(hoChart,-1,-1))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 18
Set ComLevelCount of hoChart1 to 2
Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
Send ComMarkTimeZone of hoChart1 "Z1" "1/4/2010" "1/8/2010" 16744544 Nothing
Send ComMarkTimeZone of hoChart1 "Z2" "1/12/2010" "1/18/2010" 16761952 Nothing
Send Destroy to hoChart1
End_Procedure
|
|
1155
|
How can I highlight multiple date-time zones (ranges)
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 18
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Send ComMarkTimeZone of hoChart "Z1" "1/4/2010" "1/8/2010" 16744544 Nothing
Send ComMarkTimeZone of hoChart "Z2" "1/12/2010" "1/18/2010" 16761952 Nothing
Send Destroy to hoChart
End_Procedure
|
|
1154
|
How can I highlight a date-time range
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 18
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Send ComMarkTimeZone of hoChart "Z1" "1/4/2010" "1/8/2010" 16744544 Nothing
Send Destroy to hoChart
End_Procedure
|
|
1153
|
How do I get the list of selected date
// Occurs after the chart has been changed.
Procedure OnComChartEndChanging OLEBarOperationEnum llOperation
Forward Send OnComChartEndChanging llOperation
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComSelectDates of hoChart to v
Send Destroy to hoChart
Showln llOperation v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComLevelCount of hoChart1 to 2
Set ComPaneWidth of hoChart1 False to 0
Set ComMarkTodayColor of hoChart1 to (ComBackColor(hoChart1))
Send Destroy to hoChart1
End_Procedure
|
|
1152
|
Is there any function I can use to find the bars that intersect with the current bar
// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM llItem Variant llKey
Forward Send OnComBarResizing llItem llKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln llKey "intesect with" (ComItemBar(hoItems,llItem,llKey,OLEexBarIntersectWithAsString))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexAllLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
Send Destroy to hoBar
Send Destroy to hoBars
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h1
Get ComAddItem of hoItems1 "Default" to h1
Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "A1" "A1"
Send ComAddBar of hoItems1 h1 "Task" "1/3/2001" "1/5/2001" "A2" "A2"
Send ComAddBar of hoItems1 h1 "Task" "1/4/2001" "1/7/2001" "A3" "A3"
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1151
|
Is it possible to order the bars on top of other bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexAllLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "NTask" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Default" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h1 "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Variant h2
Get ComAddItem of hoItems "Overlaid" to h2
Send ComAddBar of hoItems h2 "NTask" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h2 "NTask" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h2 "NTask" "1/4/2001" "1/7/2001" "A3" Nothing
Send ComGroupBars of hoItems h1 "A1" True h2 "A1" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A1" False h2 "A1" False Nothing Nothing
Send ComGroupBars of hoItems h1 "A2" True h2 "A2" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A2" False h2 "A2" False Nothing Nothing
Send ComGroupBars of hoItems h1 "A3" True h2 "A3" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A3" False h2 "A3" False Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1150
|
Is it possible to order the bars on top of other bars (have different colurs so that they can be seen)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexAllLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "NTask" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Default" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h1 "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Variant h2
Get ComAddItem of hoItems "Overlaid" to h2
Send ComAddBar of hoItems h2 "NTask" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h2 "NTask" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h2 "NTask" "1/4/2001" "1/7/2001" "A3" Nothing
Send ComGroupBars of hoItems h1 "A1" True h2 "A1" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A1" False h2 "A1" False Nothing Nothing
Send ComGroupBars of hoItems h1 "A2" True h2 "A2" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A2" False h2 "A2" False Nothing Nothing
Send ComGroupBars of hoItems h1 "A3" True h2 "A3" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A3" False h2 "A3" False Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1149
|
Is it possible to layer bars on top of other bars (have different colurs so that they can be seen)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "NTask" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Default" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h1 "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Variant h2
Get ComAddItem of hoItems "Overlaid" to h2
Send ComAddBar of hoItems h2 "NTask" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h2 "NTask" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h2 "NTask" "1/4/2001" "1/7/2001" "A3" Nothing
Send ComGroupBars of hoItems h1 "A1" True h2 "A1" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A1" False h2 "A1" False Nothing Nothing
Send ComGroupBars of hoItems h1 "A2" True h2 "A2" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A2" False h2 "A2" False Nothing Nothing
Send ComGroupBars of hoItems h1 "A3" True h2 "A3" True Nothing Nothing
Send ComGroupBars of hoItems h1 "A3" False h2 "A3" False Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1148
|
My skin(EBN) bars are not shown a different color in the overview. What can I do
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Send Destroy to hoBar
Send Destroy to hoBars
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComFirstVisibleDate of hoChart to "1/11/2001"
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" 1 Nothing
Send ComAddBar of hoItems h "Task" "2/2/2001" "2/4/2001" 2 Nothing
Set ComItemBar of hoItems h 2 OLEexBarColor to 16776960
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "2/2/2001" "2/4/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 255
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1147
|
How do I colour the lines in the overview section to match the bars they represent on the main chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" 1 Nothing
Send ComAddBar of hoItems h "Task" "2/2/2001" "2/4/2001" 2 Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "2/2/2001" "2/4/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 255
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1146
|
How do I catch the delete key (down) on a bar
// Occurs when the user presses a key while an object has the focus.
Procedure OnComKeyDown Short llKeyCode Short llShift
Forward Send OnComKeyDown llKeyCode llShift
Showln llKeyCode llShift
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/27/2000"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBox
Set ComHeight of hoBar to 13
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "This is a bit of text that is not clipped"
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "This is a bit of text that get's clipped"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 3
Set ComItemBar of hoItems h "K1" OLEexBarToolTip to (ComItemBar(hoItems,h,"K1",OLEexBarCaption))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1145
|
Is it possible to colour a particular column, I mean the cell's foreground color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat to |CI$1
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Get ComAdd of hoColumns "Column 2" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellValue of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1144
|
Is it possible to colour a particular column for specified values
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "int(%1) in (3,4,5)" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat to |CI$1
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Get ComAdd of hoColumns "Column 2" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellValue of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1143
|
Is it possible to colour a particular column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellBackColor to 255
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellValue of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1142
|
How do i get all the children items that are under a certain parent Item handle
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant hChild
Get ComItemChild of hoItems1 (ComFirstVisibleItem(hoItems1)) to hChild
Showln (ComCellValue(hoItems1,hChild,0))
Showln (ComCellValue(hoItems1,(ComNextSiblingItem(hoItems1,hChild)),0))
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1141
|
How can I access the control's scroll bar so I can change its appearance
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Send Destroy to hoChart
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexHSThumb to |CI$1000000
Send ComEndUpdate
End_Procedure
|
|
1140
|
How can I show my bars using the parts of the current theme
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "XP:Button 1 1" to Nothing
Get ComAdd of hoAppearance 2 "XP:Button 1 2" to Nothing
Get ComAdd of hoAppearance 3 "XP:ScrollBar 3 1" to Nothing
Get ComAdd of hoAppearance 4 "XP:ScrollBar 3 2" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "B1" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Send Destroy to hoBar
Variant voBar1
Get ComAdd of hoBars "B2" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to |CI$2000000
Send Destroy to hoBar1
Variant voBar2
Get ComAdd of hoBars "S1" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComColor of hoBar2 to |CI$3000000
Send Destroy to hoBar2
Variant voBar3
Get ComAdd of hoBars "S2" to voBar3
Handle hoBar3
Get Create (RefClass(cComBar)) to hoBar3
Set pvComObject of hoBar3 to voBar3
Set ComColor of hoBar3 to |CI$4000000
Send Destroy to hoBar3
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Button1")) "B1" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Button 2")) "B2" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Scrollbar 1")) "S1" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Scrollbar 2")) "S2" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1139
|
How do I hide the text on a bar if the text is to big for the bar length
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/27/2000"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBox
Set ComHeight of hoBar to 13
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "This is a bit of text that is not clipped"
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "This is a bit of text that get's clipped"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 3
Set ComItemBar of hoItems h "K1" OLEexBarToolTip to (ComItemBar(hoItems,h,"K1",OLEexBarCaption))
Send Destroy to hoItems
End_Procedure
|
|
1138
|
Is it possible to change the color for non-working parts of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Set ComNonworkingDaysColor of hoChart to (RGB(240,250,240))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/16/2001" Nothing Nothing
Variant h
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/16/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarNonWorkingColor to 65280
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1137
|
Is it possible to change the color for the percent bar being displayed inside a specified bar only
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Get ComAdd of hoBars "Task%Progress" to Nothing
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComPaneWidth of hoChart2 False to 48
Send Destroy to hoChart2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.5
Set ComItemBar of hoItems h "K1" OLEexBarPercentColor to 255
Send Destroy to hoItems
End_Procedure
|
|
1136
|
How do I get a handle on the item before adding the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComOnResizeControl to OLEexResizeChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 0" to h1
Set ComCellValue of hoItems h1 1 to "9/21/2006"
Set ComCellValue of hoItems h1 2 to "9/24/2006"
Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) Nothing Nothing
Variant h2
Get ComInsertItem of hoItems h "Task 1" to h2
Set ComCellValue of hoItems h2 1 to "9/25/2006"
Set ComCellValue of hoItems h2 2 to "9/28/2006"
Send ComAddBar of hoItems h2 "Task" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) Nothing Nothing
Variant h3
Get ComInsertItem of hoItems h "Task 2" to h3
Set ComCellValue of hoItems h3 1 to "9/29/2006"
Set ComCellValue of hoItems h3 2 to "10/2/2006"
Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) Nothing Nothing
Get ComAddItem of hoItems (ComItemCount(hoItems)) to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1135
|
Is there an Items method that I can use to loop around to compare the item's user data against
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Set ComItemData of hoItems (ComInsertItem(hoItems,h,"Child 2")) to 1234
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems (ComFindItemData(hoItems,1234,Nothing)) to True
Send Destroy to hoItems
End_Procedure
|
|
1134
|
How do I make the tooltip box wider to allow for longer text
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipWidth to 328
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarToolTip to "This is a bit of text that's displayed when the cursor hovers the bar"
Send Destroy to hoItems
End_Procedure
|
|
1133
|
How do i set the default timeslots to say hours or minutes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComLevelCount of hoChart to 2
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComOverviewZoomUnit of hoChart to 24
Set ComOverviewZoomCaption of hoChart to "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S"
Set ComUnitScale of hoChart to OLEexMinute
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/16/2001" "1/25/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 4")) "Task" "2/16/2001" "2/25/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1132
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComLevelCount of hoChart to 2
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComOverviewZoomUnit of hoChart to 24
Set ComOverviewHeight of hoChart to 58
Set ComOverviewZoomCaption of hoChart to "Y<br>e<br>a<br>r|½Y|¼Y|M<br>o<br>n<br>t<br>h|T|W<br>e<br>e<br>w|<img>pic1:28<img>|H<br>o<br>u<br>r|M<br>i<br>n|S<br>e<br>c"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/16/2001" "1/25/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 4")) "Task" "2/16/2001" "2/25/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1131
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComLevelCount of hoChart to 2
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComOverviewZoomUnit of hoChart to 24
Set ComOverviewZoomCaption of hoChart to "Y|½Y|¼Y|<img>2<img>|T|W|<img>1<img>|H|M|S"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/16/2001" "1/25/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 4")) "Task" "2/16/2001" "2/25/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1130
|
How do I change (for localisation) the text in the buttons like (Sec., Min., Hour, Month...)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComLevelCount of hoChart to 2
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComOverviewZoomUnit of hoChart to 24
Set ComOverviewZoomCaption of hoChart to "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/16/2001" "1/25/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 4")) "Task" "2/16/2001" "2/25/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1129
|
How I can change the Months and Weekdays
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "2/1/2010"
Set ComLevelCount of hoChart to 2
Set ComUnitWidth of hoChart to 10
Set ComMonthNames of hoChart to "1 2 3 4 5 6 7 8 9 10 11 12"
Set ComWeekDays of hoChart to "A B C D E F G"
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%mmmm%>"
Set ComUnit of hoLevel to OLEexMonth
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<font ;6><%ddd%>"
Set ComUnit of hoLevel1 to OLEexDay
Send Destroy to hoLevel1
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1128
|
How do i get the current window time frame (the start and end) of the gantt chart
// Occurs when the first visible date is changed.
Procedure OnComDateChange
Forward Send OnComDateChange
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Showln "Start" (ComFirstVisibleDate(hoChart))
Showln ""
Showln "End" (ComDateFromPoint(hoChart,(ComPaneWidth(hoChart,True)),0))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 1
Set ComLevelCount of hoChart1 to 2
Send ComScrollTo of hoChart1 "1/1/2010" 0
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
1127
|
When I use this Chart.get_DateFromPoint(exg2antt1.Width, 0) I get date as 0, 30/12/1899, or 12:00:00 AM. What that means
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComDateFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 48
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
End_Procedure
|
|
1126
|
How do I enable grabing bars to other items/rows (and only enable them to be dropped on certain rows)
// Occurs just before moving a bar from current item to another item.
Procedure OnComBarParentChange HITEM llItem Variant llKey HITEM llNewItem Boolean llCancel
Forward Send OnComBarParentChange llItem llKey llNewItem llCancel
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems llNewItem 0 to v
Send Destroy to hoItems
Showln v
Variant v1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemData of hoItems1 llNewItem to v1
Send Destroy to hoItems1
Move v1 to Cancel
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant h
Get ComAddItem of hoItems2 "Item 1" to h
Set ComEnableItem of hoItems2 h to False
Set ComItemData of hoItems2 h to -1
Get ComAddItem of hoItems2 "Item 2" to h
Set ComItemData of hoItems2 h to 0
Send ComAddBar of hoItems2 h "Task" "1/5/2001" "1/7/2001" "B" Nothing
Set ComItemBar of hoItems2 h "B" OLEexBarCanMoveToAnother to True
Set ComItemData of hoItems2 (ComAddItem(hoItems2,"Item 3")) to 0
Get ComAddItem of hoItems2 "Item 4" to h
Set ComEnableItem of hoItems2 h to False
Set ComItemData of hoItems2 h to -1
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
1125
|
How can I find out if a date time is a non-working part
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComDateFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Variant d
Move v to d
Variant v1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Get ComIsNonworkingDate of hoChart1 d h to v1
Send Destroy to hoChart1
Showln d v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "NonWorking" to Nothing
Send Destroy to hoColumns
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComFirstWeekDay of hoChart2 to OLEexMonday
Set ComFirstVisibleDate of hoChart2 to "1/24/2008"
Set ComPaneWidth of hoChart2 False to 64
Set ComLevelCount of hoChart2 to 2
Send Destroy to hoChart2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Default" to h
Get ComAddItem of hoItems "January" to h
Set ComItemNonworkingUnits of hoItems h False to "month(value) = 1"
Get ComAddItem of hoItems "February, Saturday, Sunday" to h
Set ComItemNonworkingUnits of hoItems h False to "month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)"
Get ComAddItem of hoItems "Sunday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) = 0"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1124
|
I am using the ItemBar property exBarCanMoveToAnother, How do I stop it from being dropped on certain chart rows
// Occurs just before moving a bar from current item to another item.
Procedure OnComBarParentChange HITEM llItem Variant llKey HITEM llNewItem Boolean llCancel
Forward Send OnComBarParentChange llItem llKey llNewItem llCancel
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems llNewItem 0 to v
Send Destroy to hoItems
Showln v
Variant v1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemData of hoItems1 llNewItem to v1
Send Destroy to hoItems1
Move v1 to Cancel
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant h
Get ComAddItem of hoItems2 "Item 1" to h
Set ComEnableItem of hoItems2 h to False
Set ComItemData of hoItems2 h to -1
Get ComAddItem of hoItems2 "Item 2" to h
Set ComItemData of hoItems2 h to 0
Send ComAddBar of hoItems2 h "Task" "1/5/2001" "1/7/2001" "B" Nothing
Set ComItemBar of hoItems2 h "B" OLEexBarCanMoveToAnother to True
Set ComItemData of hoItems2 (ComAddItem(hoItems2,"Item 3")) to 0
Set ComItemData of hoItems2 (ComAddItem(hoItems2,"Item 4")) to 0
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
1123
|
What is the event I should use to capture the click event on the task item on left hand side
// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick
Forward Send OnComClick
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems h c to v
Send Destroy to hoItems
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1122
|
Can I add a hyperlink assigned to a bar
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "default"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "<a1><b>A 1</b></a>"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 3" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "<a2><b>A 2</b></a>"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1121
|
Can I change the background color only for the text (caption) in a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "default"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "using <bgcolor=FF0000>bgcolor</bgcolor> HTML attribute "
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1120
|
Can I change the font to display the text (caption) in a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "default"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "<font Segoe UI;8 >using font HTML attribute </fgcolor>"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1119
|
How do i change the forecolor of text (caption) in a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "default"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "<fgcolor=FF0000>using fgcolor HTML attribute </fgcolor>"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 3" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" Nothing
Set ComItemBar of hoItems h "K" OLEexBarCaption to "using exBarForeColor"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Set ComItemBar of hoItems h "K" OLEexBarForeColor to 65280
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1118
|
I have noticed that when scrolling horizontally the chart a tooltip shown. is it possible to actually do the scrolling without showing the tooltip
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComAllowLinkBars of hoChart to True
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComToolTip of hoChart to ""
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/21/2005" "6/25/2005" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/28/2005" "7/2/2005" "B" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1117
|
How can I add a bar to be treated as a nonworking part like a "holidays" bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComAllowNonworkingBars of hoChart to True
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) in (0,6)"
Send ComAddBar of hoItems h "" "1/2/2001" "1/5/2001" "A" "holyday"
Set ComItemBar of hoItems h "A" OLEexBarTreatAsNonworking to True
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/12/2001" "Z" Nothing
Set ComItemBar of hoItems h "Z" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1116
|
Is it possible to add bars that act like a non-working fixed part or the item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComAllowNonworkingBars of hoChart to True
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) in (0,6)"
Send ComAddBar of hoItems h "" "1/3/2001" "1/6/2001" "h" "holyday"
Set ComItemBar of hoItems h "h" OLEexBarTreatAsNonworking to True
Set ComItemBar of hoItems h "h" OLEexBarSelectable to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1115
|
Is it possible to add bars that act like a non-working part or the item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComAllowNonworkingBars of hoChart to True
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) in (0,6)"
Send ComAddBar of hoItems h "" "1/3/2001" "1/6/2001" "h" "holyday"
Set ComItemBar of hoItems h "h" OLEexBarTreatAsNonworking to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1114
|
How can I change the both dates for the bar at once
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "6/21/2005"
Set ComShowEmptyBars of hoChart to 1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Test" to h
Send ComAddBar of hoItems h "Task" "6/22/2005" "6/26/2005" "" Nothing
Send ComAddBar of hoItems h "Task" "6/27/2005" "6/29/2005" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1113
|
How can I get the selected bars in the chart
// Occurs when the user selects objects in the chart area.
Procedure OnComChartSelectionChanged
Forward Send OnComChartSelectionChanged
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComSelectedObjects of hoItems OLEexSelectBarsOnly to v
Send Destroy to hoItems
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComAllowLinkBars of hoChart to True
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "6/21/2005" "6/25/2005" "A" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "6/28/2005" "7/2/2005" "B" Nothing
Set ComItemBar of hoItems1 (ComFirstVisibleItem(hoItems1)) (ComFirstItemBar(hoItems1,(ComFirstVisibleItem(hoItems1)))) OLEexBarSelected to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1112
|
How can I list the actions that can be performed by undo operations
// Occurs after the chart has been changed.
Procedure OnComChartEndChanging OLEBarOperationEnum llOperation
Forward Send OnComChartEndChanging llOperation
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComUndoListAction of hoChart Nothing Nothing to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComAllowLinkBars of hoChart2 to False
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Variant voBars
Get ComBars of hoChart3 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart3
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Set ComAllowUndoRedo of hoChart4 to True
Send Destroy to hoChart4
Variant voChart5
Get ComChart to voChart5
Handle hoChart5
Get Create (RefClass(cComChart)) to hoChart5
Set pvComObject of hoChart5 to voChart5
Set ComPaneWidth of hoChart5 False to 32
Send Destroy to hoChart5
Variant voChart6
Get ComChart to voChart6
Handle hoChart6
Get Create (RefClass(cComChart)) to hoChart6
Set pvComObject of hoChart6 to voChart6
Variant voBars1
Get ComBars of hoChart6 to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar2
Get ComAdd of hoBars1 "Task:Split" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComShortcut of hoBar2 to "Task"
Send Destroy to hoBar2
Send Destroy to hoBars1
Send Destroy to hoChart6
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "A" Nothing
Variant h
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems h "B" OLEexBarCanMoveToAnother to True
Set ComItemBar of hoItems h "B" OLEexBarKeepWorkingCount to True
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Item 3")) false to "weekday(value)=0"
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Item 4")) false to "weekday(value) in (3,5)"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1111
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComLevelCount of hoChart to 3
Set ComLabel of hoChart OLEexYear to "<%yy%><|><%yyyy%>"
Set ComLabel of hoChart OLEexHalfYear to ""
Set ComLabel of hoChart OLEexQuarterYear to ""
Set ComLabel of hoChart OLEexMonth to "<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>"
Set ComLabel of hoChart OLEexThirdMonth to ""
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096"
Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexYear to "<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexHalfYear to ""
Set ComLabelToolTip of hoChart OLEexQuarterYear to ""
Set ComLabelToolTip of hoChart OLEexMonth to "<%m%>/<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexThirdMonth to ""
Set ComLabelToolTip of hoChart OLEexWeek to "<%m%>/<%d%>/<%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%m%>/<%d%>/<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexHour to "<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexMinute to "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexSecond to "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1110
|
The histogram does not show (correctly) the bars, even if I changed the Bar.HistogramPattern and Bar.HistogramColor properties. What can be wrong
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "12/27/2000"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Set ComResizeUnitScale of hoChart to OLEexHour
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001 8:00:00 AM" "1/2/2001 12:00:00 PM" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/1/2001 8:00:00 AM" "1/5/2001 12:00:00 PM" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1109
|
How can I change the default key for the newly added link from "Link1" to my identifier
// Occurs when the user links two bars using the mouse.
Procedure OnComAddLink String llLinkKey
Forward Send OnComAddLink llLinkKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddLink of hoItems "newIDlink" (ComLink(hoItems,llLinkKey,OLEexLinkStartItem)) (ComLink(hoItems,llLinkKey,OLEexLinkStartBar)) (ComLink(hoItems,llLinkKey,OLEexLinkEndItem)) (ComLink(hoItems,llLinkKey,OLEexLinkEndBar))
Send ComRemoveLink of hoItems llLinkKey
Send Destroy to hoItems
End_Procedure
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLinkFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "6/20/2005"
Set ComAllowLinkBars of hoChart1 to True
Set ComLevelCount of hoChart1 to 2
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1108
|
How can I change the default key for the newly added link from "Link1" to my identifier
// Notifies at runtime when a link between two bars is possible.
Procedure OnComAllowLink HITEM llStartItem Variant llStartBarKey HITEM llEndItem Variant llEndBarKey Variant llLinkKey Boolean llCancel
Forward Send OnComAllowLink llStartItem llStartBarKey llEndItem llEndBarKey llLinkKey llCancel
Move "newIDlink" to LinkKey
End_Procedure
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLinkFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "6/20/2005"
Set ComAllowLinkBars of hoChart1 to True
Set ComLevelCount of hoChart1 to 2
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1107
|
We want to have a Task ID column as the first column that shows the row number. How can we do that
// Fired when a cell requires to format its caption.
Procedure OnComFormatColumn HITEM llItem Integer llColIndex Variant llValue
Forward Send OnComFormatColumn llItem llColIndex llValue
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemPosition of hoItems llItem to v
Send Destroy to hoItems
Move v to Value
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Pos" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 24
Set ComAllowSizing of hoColumn to False
Set ComPosition of hoColumn to 0
Set ComFireFormatColumn of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "Task A" to Nothing
Get ComAddItem of hoItems1 "Task B" to Nothing
Get ComAddItem of hoItems1 "Task C" to Nothing
Get ComAddItem of hoItems1 "Task D" to Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1106
|
How can I get the caption of focused item
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Handle" (ComFocusItem(hoItems)) "Caption" (ComCellCaption(hoItems,(ComFocusItem(hoItems)),0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1105
|
How can I get the caption of selected item
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Handle" (ComSelectedItem(hoItems,0)) "Caption" (ComCellCaption(hoItems,(ComSelectedItem(hoItems,0)),0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1104
|
How can I get the link from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLinkFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "12/29/2000"
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkText to "L1"
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "L2" OLEexLinkText to "L2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1103
|
How can I get the bar from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "12/29/2000"
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/4/2001" "1/6/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1102
|
How can I get the level from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLevelFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "6/25/2010"
Set ComPaneWidth of hoChart1 False to 0
Set ComLevelCount of hoChart1 to 4
Send Destroy to hoChart1
End_Procedure
|
|
1101
|
How can I get the date from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComDateFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 0
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
End_Procedure
|